te i a 
; R 0 U T I NE TO PACK 81X CHARACTERS TN SYM1, SYM@, SYMS 
“7WENGTHS 25 REGISTERS | | | | 


Fen i en ae ee 


aN an A AOS MRR RES 


_ GEeTSe SZ TEM, sss SHOULD CHARACTER BE ROTATED? 
IMP ROTE ~PYES 
shares ans oo mca cea A g  catst catah  tN acc at 
; NCA TEM] 7ROTATION COUNTER 
PUT, Tan PNTR WHICH WORD TS THIS? 
TAD TEMe /ADDRESS IS FORMED FROM CNTR2 AND A 
DCA TEMS | /POINTER, TO GET RELEVANT SYMBOL, WORD. 
eee RACER 
| —sTap t TEMS /ADD IN PREVIOUS CHARACTER _ 
RT Sepa eee Se 
JMP IT NXCHP /GO GET NEXT CHARACTER 
ROE; er ene I A ak la A 
NP tS NOE ROTATE IT Tee 
DCA TEM, /YES? ARRANGE COUNTERS —_ 
CMA fS0 TRAT ALL OTHERS ARE 
rg phe 
: JMP I NxCHP = /KEEP ACCEPTING CHARS, 


TAD CHAR: 
Sb RT 0 ER BETS REPT 


se ERE REIN ATER VN TEE HEE REIT ALS NE NS DAREN EE PS ESTE TS TE FREED NEE YI TDRSS LE HEE NOISE LE RAIL TNE. 


tg rr re 

. IMP PUT /GOT STORE CHARACTER | 

————PNTR,  SYMS#1 —7WORD POINTER eee ger eee 
NxCHP, NXCH _/NEXT CHARACTER ROUTINE 


7 - . 7 2 | es - oh | Fate Bake : zen | ; | . : . ; - | Sey eee 

sche Sinaia i tas las Ral Portia es waae stat sage sae & ws = = ee = Silt bel Saibtaelceracan tees ve ch Sc ws aaa i i ra nai la LR 
aaa _ —— = _ — ~ a — —_ mec 
poe ee are es oe cece eas ze " ee See = _ ee ee oe iG na a 
ibaa oe act i cee ala ad oh cae eet IE CSN a ge a eet ita MeO A Salat altel eto jc bant ebay Wis ats td ainda NS eecattaka Os cae badlesteh Maina a cepts ia Cita BC 


a ph at tate eee an ea 

/PAL SPACE HANDLER | 

Pe ALENT THe OR RER ERE TIO rrr eitiirt ection 
/ANO THE SIGN ASSOCIATED WITH THE SYMBOL IS IN SIGN | 

~7VALUE” OF SYMBOL ISIN. SYRVALS Se 


~7IF CALLED WITH A+ OR =, THE ADDRESS IS ADDED OR "SUBTRACTED FROM ‘ADDR 
SWENGTHE €8 REGISTERS 


“SPAGy TAD INFO OTN THING TO PROCESS? 


POP J /NOR EXIT 
Tan TYPE YESS GET SYMBOL TYPE | 
JMP INST | INES» INSTRUCTION 


SNA ‘18 IT ZERO? 


Jae TORE -TCOMBINE SYMVAL AND ADDR WITH AN TOR 


SPA CLA /WAS SIGN +7 


IMR SURE go SURI RIC SS Sa 


_ApDGe Tan SYMVaAL -/ADD ROUTINE = ADD SYMVAL | 


2 \ ae 13)>], Sane END ADDR Fe a MEL ee eee eR ee Fore eee 


DCA ADDR /AND PUT RESULTS BACK IN ADDR 


1 * a RECURSIVE EXIT See acca ee 


“susce TAD SYMVAL —/S8UBTRACT ROUTINE = NEGATE 


Sc) Ge 7 | SY MVAL See See tee ag tne id 


JMHP aQdcwt SUMP INTO ADD ROUTERE | 
JMS 1 ITORIN fis TO TOR “SUBROUTINE 


“See ADDR ee “LEAVE RESULTS IN ADDR” Eee ee eT oe te ee 


POPJ /RECURSIVE EXIT 
dea py ence (eeu 
DCA INSF 


IMS I IQRIN 
es -FCRAVE RESULTS IN BINW Pe ee 


emai ASH A AEE ees see 
2 ge want aba “aa St PRO ACSF ea al se Tea USSR oto es 
oe ee — feo ants ree ianbanaa sive usta i a 


fos is PRED PBR ABEL cA Ta Ash el ASICS MAG RET AN Et SAME NP ROEB EN SB ESE PEAR Mf SERRA SPREE IONS 5 SFE MPRA ERAN ERE NG Te TENSE CARGO ET 


“Sapo gg 


/ROUTINE TO HANDLE CARIAGE RETURNS 


ALENGTH: 408 REGISTERS — 


PAC 


IMP TPAGE 


Rta ar Ry RREDCAIRL RSDARED AD ASIN OR ASN ASR DH Ns 


SNA CLA 


Oo — Tap ceed. 
AD ADDR 


TAD BINW 


OPST, OCA BINW | 


OR 2 ae OE RS CAPSS SA MSN ROR LD TMP RED ILE acon rac NCO RL SR OR RHR ELSES, 


POPJ 
iia al TaD PF 
SNA CLA. 


TAD AACT 


a eR ASE TN Ry SO NDA Rk LUANG STAN ENA RAT Ma OS 


_GMA aa 


SNA cha. 


TaD Lim 


IRS ean aR SE HSA TDS PR PO RAINE TRL RG ENA EN pati Oe RAN Recht RENEE HS Nn ATER OP BSR te A a BRST HL 


DCA PF 


Tad ZFLG 


—1G02, TaD AUDR ie Sa phe ntes 


DCA. ADDR eeeae 


“7RECURSIVE CALL TO SPACE HANDLER © 


—/ADORESS OF SPACE HANDLER FOR PUSHJ =~ 


/GET 12 BIT ADDRESS 
_/WAS THERE AN INSTRUCTION? 
~ANOQ Be. 
/ /LOQK AT PAGE BITS _ 
~ ~APAGE ZERO REFERENCE? = = © 


/NO, CHECK ILLEGAL PAGE REFERENCE 


APUT UP PAGE ZERO FLAG 
GET oS 
/SAVE IT 


—TFTS THIS A PAGE ZERQ REFERENCE? ~ 


TPAGE, DCA eM 


ae sag 


ei SS AIT RA ERAN EE IETS ADEE TAIN 


~7NO, PICK UP A 1 IN BIT 
/GET REST OF ANDRESS 


— /GET INSTRUCTION PART ~ 


/THIS IS THE ASSEMBLED WORD 


ganic FS ATRL PNW ELAR 10 ALES ATS OBR 9 ER EI IED ADT HABE 


~~ FRECURSIVE EXIT 


~ ABUT ONLY ON PASSe OR PASS 


/SINCE REFERENCE MAY STILL BE 


 AUNDEFINED ON PASS1. 


/NEGATE IT 
ARE THEY. EQUAL? 
ENO 4 CHANGE PF. TO ‘PASSS 


/SAVE ‘PF ON PUSHDOWN, SET TO 0 


TEST EQUALITY OF PAGE BITS 


_f/L00K AT PAGE BITS GF AACT 


ch SS SSAC ME RONAN ARIS EA 8A RR A mA MED 


SE SIGART HAC AGU GRIN NEARED CUE MESES AS VEG ARETC UES ES NESS ROBES AREAS ETI GATES le Pe MOLE IEE: 
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/YES, RETURN TO PROCESSOR = 


SRD WS 1 REAL RL ACO IRL TaD NASER BERNIE REET LO 


3s eee “Tab ADnRe ee “BUT ADDR ON STACK, ALSQ 
PUSH | 
= eattes ESD ORR 
PUSH! /60 TO ERROR ROUTINE 
RR 
7 PQP /RESTORE Pe 
gp en eS ee 
MP 1g60e RETURN TO PROCESSOR © 
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tL ee 
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POP Sa HeNE TO RECOVER ITEMS” FROM THE 
oo  APUSHDOWN LIST — 
| /CHECKS FOR PUSHDOWN UNDERFLOW 
~~ ~FLENGTHE ia 


18 REGISTERS 


CMa TAC 
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—e TAD PSHPN{ 
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BIB hc rc RE ESLER CARE i PORN A DARE NRE OANBCS EN NN BED EGC I TSE RD A 
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. M Pp 4 P a P 1 


/ROWTING TO aie polAll abs 
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SYMBOL TABLE 
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“YPLEGN 
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TAD PSHPNY CHECK FOR PUSHDOWN UNDERFLOW 


/RESET POINTER 
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POPJ 
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“Ba y” 
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/TREAT AS SYMBOL 
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- be ee 
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15 
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PF 
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eo 


r Eee 


Lc Rey a HD Rs ROSTER Ma te Sala eh RS BP 


JMS 
TAD 
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MS - 
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IP2, Tad 
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IMS 
1$Z 


IMS 


ata 


TAD 


Rg 
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TAD 
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JIMS 
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oui 
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AQUTPUT A RUBOUT FOR DOT 


AINITIALTZE SORT ROUTINE 


SR LRT dB SSH ASE RT RDI LE RULES A ES SPERM 5 SCORERS 


7CARRIAGE RETURN, CINE FEED 


“/GET A SYMBOI FROM SORT 
/GET FIRST WORD OF SYMBOL 
~~ PWAS LT DEFINED? 
/NO, BITO IS 1, ERROR 
—“7YES, OUTPUT FIRST WORD 
/ INCREMENT POINTER ‘TO NEXT WORD | 
7PICK If UP 
/TYPE IT QUT 
— APOINTER T oO” THIR Dd WORD ~ oe ea on ere 
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PAD SATO NARS EST EAB RUAN ORE FSCS SE A ODER! SIMA AES BRED 


/TYPE Two SPACES 
— ATNCREMENT POINTER TO VALUE ~ 
/GET VALUE OF SYMBOL 
760 TO OCTAL OUTPUT ROUTINE ~~ 
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— eYPE A RUBOUT FoR DOT 
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ot teas 
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Path ae 
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ste 


Fao 
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1, F SaaS 


“RESET VALUE TO HIGHEST 


ZRETURN FOR MORE SYMBOLS © a 


ike OR ee 
I iN rr 
/PUNCH LEADER=TRAILER oe oe 


/GQ TO NEXT PASS 


AON PUSHDOWN LIST 
— AGET CURRENT LOCATION ” 


/COUNTER WHEN THE SYMBOL 


De RO oS AI ST SES MAS US RIGO NI SAE ANNE COREA ESSE ON 


FHKE LAST SEEN ea aoe ee ee ee oe 
“PUT INTO AACT | ; eee eee 
7CODE FOR UA Is . ie ee tt pte 


an a tar epee rine oentioeennevind 
Ali Lae rao 
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naa SonTthe Ro 
_/RENGTNS 6% REGISTERS 


FAL i tN RR AMBORSECEUEREREL HERA 


SORT, DCA INFO 


DCA PNTL 


CMA 
DCA HIGH 


EAR A RTT SUL SMP NEGA LT REE A BATESON TERT AY SI a EERO So ee ee ed ASA RPA ta NRL Se 


CMA 


beeen conn enSaNS rae ete ann ent DR a pu Nene te aE amma BN abet AE 


CMA 
CA HAG 2 | 
LOHK, TAD PNT] 
So eb COB EAC 


Tad SPNT 
SNA CLA 


a Fe 
sce ta es ec Ws 


DCA SORT! 
TAD PNT1 


BES AREA A DIA LAE A SLRS NBME ERS AS ET SCS HC A NAAT OG SUTRAS ONC RDO HOGA SORT: 2 PB PLY APL SEES ERE BS BE Sa asa ART 


_ MS 1 SYMCMT 
IMP OITNE 
IMP INC 


teeta ance MOON TE 2 od 
DCA “SORTS 
JIMS y SYMCMy 
JMP INC 
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NCA SORT! 


AND MASK 


eae —-NCA-TEMS 
TaD I SORT! 


TAN I SOQRT1 


NI a cereal ean 


‘Tap weno 
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/PUT IT IN ADDRESS POINTER 


RA AMS RASS BIEN AR BUN BESS PSLRA A PR I Le RAIS CHR et USA AAU AE AEE NEPA RGR BIC AB eSATA 


- /MAVE WE CHECKED aLlL OF SYMBOL TABLE? 
/COMPARE POINTER WITH ANOTHER POINTER _ 


a SURO AP LARISA ARIA TSP AOR CLE 


/TO THE END OF THE SYMBOL TABLE 


LISTENER RETR RR REP II 


— fALL THROUGH 
/SET UP POINTERS FOR CYMBOL COMPARISON 


/T0O SSEE IF SYM YS GREATER THAN LOW 
_ _“AGET ADQRESS OF CURRENT SYMBOL 


pean 2 AMET LOR ERAN LE AATIRS LOPS LTA EDU EORTC NSTC ESTAS SENECA CBG 


SYM 1s LESS THAN LOW 


/S9M IS GREATER THAN LOW 
_/NOW SET UP POINTERS FOR CHECKS ROUTINE 


‘FOSYM IS LESS THAN HIGH 


‘460 TO SYMBOI COMPARISON ROUTINE | 
/SYM IS EQUAL TO HIGH 
/SYM IS LESS THAN HIGH 


/PUT THE SYMBOL IN HIGH. 
; _fGET RID OF THE UNDEFINED BIT | 


eR 
TAD SORTL 


/PUT ADDRESS OF SYMBOL IN ADDR FOR DOLL 


A CO AE ARH RR LEANDRA ASE RRS 


APINIGH PUTTING SYMBOL EN WoGR 
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JMIGHe 


REAATSOURE A SRA RS BERLE OU AOR ONCE 


PNT1, 


06, 


“HIGH+! GOES INTO bh OWet 


 /MIGH#e GOES INTO LOW#2 


store FOR HIGH SYMBOL | 


Ld; 


 FINGREMENT POINTER 
~"/FOR NEXT COMPARE 
/PUT IT BACK IN PNT4 
750 LOOK AT NEXT SYMBOL 
_/ALL THROUGH» NOW PUT HIGH INTO LOW 
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